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DET - DETECT KEY WORDS 


DECUS Program Library Write-up 


DECUS No. 8-196 


DET will detect a key word or words from any sentence that Is typed in. Upon detection the 
program will execute the JMP instruction that is associated with that key. All other words 
in the sentence will not be effected so that any arrangement of words can be used. A basic 
"Conversation" tupe routine called "SPELL" is included to demonstrate the program operation. 
"FOCAL" was not used so as to have as much space possible for key words and answers. 

"DET" is linked to gether with a "REPLY" program. REPLY randomly selects an answer from 
a specific class of answers, i.e. 

1. The key word selects an answer from a class 

2. A random number selects a sentence from a class 

3. A format number selects classes of words for the sentence 

4. A random number selects a word for each word class (variable word) within the sentence, 
this allows for a vast combination of replies to key words. 

OPERATION 

1 . Load the program with bin loader. 

2. Start at address 0200. 

3. Type In any sentence which includes key word or words, followed by a space and a 
carriage return. 

4. If two key words are included, it will only detect the last one. 

5. If key word is misspelled it will not detect It. 


NOTE: Not all the states have been included in the "SPELL" program. The only key word 
not a state is "DUMB. " 








TYPEOUT FOR "SPELL" ROUTINE 


>4 


IS THIS HOW TO SPELL UTAH ? 

THAT IS CORRECT 

IS THE STATE OF UTAH SPELLED LIKE THIS ? 
THAT IS CORRECT 


DOES THIS SPELL MASSACHUSETTS ? 

YOU ARE A GENIUS 

✓ 

DOES THIS SPELL MASSACHUSETS ? 

YOU GOOFED TRY AGAIN 

✓ 

IS THE STATE OF PENNSYLVANNIA SPELLED OK 
YOU GOOFED TRY AGAIN 

HOW ABOUT SPELLING PENNSYLVANIA THI WAY 
THAT IS PRETTY GOOD SPELLING 


HOW ABOUT ALASKA 

YOU GOOFED TRY AGAIN (NOT IN STORAGE) 

HOW CAN YOU BE SO DUMB 
DO YOU HATE ME 

OHIO 

THAT IS CORRECT 


WYOMING 

THAT IS PRETTY GOOD SPELLING 

OHIO AND WYOMING 

THAT IS PRETTY GOOD SPELLING 

WYOMING AND OHIO 
THAT IS CORRECT 



} Last Key Word is Detected Only 




✓ 

WYEOMING AND OHIO 
THAT IS CORRECT 


WYOMING AND OHIlO 

THAT IS PRETTY GOOD SPELLING 


WYOMING AND MASSACHUSETS 
THAT IS PRETTY GOOD SPELLING 

WYOMING AND MASSACHUUSSEETS 
THAT IS PRETTY GOOD SPELLING 


Only One Key Word 


y 
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"SPELL" PROGRAM 


J02j0jel 

02f64 

02]fi 

02U 

0220 

0224 

0230 

0234 

0240 

02U 

0250 

0254 

0260 

0264 

0270 

0274 

0300 

0304 

03]0 

03U 

0320 

0324 

0330 

0334 

0340 

03U 

0350 

0354 

0360 

0364 

0370 

0374 


7240 036] 3360 6032 

603] 5204 6034 3362 

7240 0362 3764 2364 
6042 7240 0362 7000 

604] 5220 7240 0362 
]370 7040 7440 5203 
7240 0365 3364 7240 
0367 3366 7240 0764 

3362 2364 724^ ^362 
]370 7040 7440 5251 
5354 2366 7240 0766 

3363 7240 0363 7U0 

5262 5251 7240 0763 
7U0 5275 7240 0362 
1371 7040 7440 5233 
5334 7240 0763 1372 
7040 7440 5305 2362 
5323 7240 0763 7040 
1362 7040 7440 5325 
7240 0763 1371 7040 
7U0 5323 5330 2766 
5251 7200 3766 5251 
2363 7240 0763 3360 
7240 0773 3775 2373 
2375 7240 0773 7U0 
5334 7240 0374 3373 
7240 0376 3375 5233 
7240 0365 3364 5760 
06]4 06U 02]5 2344 , 

0W 0]00CBlZ(0^2y 367 = 0777 
7562 7537 0777 ]025 
]025 ]000 ]000 0000 


"DET" 


THIS IS THE "DET" DETECT PROGRAM 
INCLUDED IN "SPELL" 


KOUB 


366 = jef777 


SPACE AFTER LAST WORd! 


0500 
0504 
05]0 
05U 
0520 
0524 
0530 
0534 
0540 
05U 
0550 
0554 
0560 


0200 2360 
7440 5307 
]760 1361 
]760 5353 
1362 744jef 
5353 7200 
7440 5334 
7200 U60 
70]2 0364 
604] 5344 
]760 0364 
604] 5354 
7563 



7200 U60 
5700 7200 
7U0 5316 
7200 ]760 
5325 U60 
]760 1363 
176jel 5353 
70]2 70]2 
1365 6044 
6042 7200 

1365 _ 

6jel^2 530 ] 
7566 7540 




"TOW. II" 


(TO CHECK "DET"—^ 050] = 7402) 




















06f60 

j56^ 

06]0 


(1372 3623 5622) 1373 
3623 5622 1374 3623 
5622 1375 3623 5622 


"TOW.H" CLINK 


0620 

3623 5622 

050} 0560] 

0624 

0000 [^}T 

j"TOW.n" FONT 


0634 0240 U0\ \607 250} 

0640 0705 0240 02} 5 02} 2 

0644 mel Cfl2}2y fU}7 024fi 

0650 3117 2577 0240 }00} 

0654 2405 0240 }505 

0660 02}5 02}2 0000 



A 










"DET" PROGRAM FLOW 



LOAD JUMP ADRSS 

FOR DON'T UNDER¬ 
STAND OUTPUT 



, READ KEYBO 
INTO "CHAR 

ARD 

II 



STORE "CHAI 
SENTENCE : 
AREA (0100 - 

R" INTO 

STORE 

) 



ECHO PRINT THE 

INPUT "CHAR" 



TEST IF "CHAR" 

IS A CAR. RET 

NO 


___ 

^ YES 

RESTORE SENTENCE 
COUNTER "KOUA" 


(NEXT) 

RESTORE KEY 

WORD COUNTER 
"KOUB" 




KEYS 


tn 

> 


BRING OUT THE 
INPUT SENTENCE 
CHARACTER FROM 
MEMORY-w' "CHAR" 
AND INCREMENT THE 
SENT COUNT "KOUA" 




TEST IF "CHAR" 

IS A CAR. RET 

{/i 

h- 

D g 

. NO 


1/1 
a; J 


y (KEYS) 


INCREMENT KEY 
WORD COUNTER 
"KOUB" AND BRING 
OUT ADRSS OF 
KEY CHARACTER 
COUNTER —^"INDI" 


oo 

>- 


TEST IF KEY 
CHAR COUNTER HAS 
BEEN CLEARED — 

I.E. NOT A KEY WORD 


YES 


(ZERO) 


TEST IF KEY 
CHARACTER IS ZERO 
hE. END OF KEY WDS. 


YES 


1 


NO 


TEST IF PRESENT 
INPUT CHARACTER 
"CHAR" IS A SPACE 
I.E. END OF INPUT WD. 


YES 


NEXT 


NO 


(CONT) 


TEST IF KEY 
CHARACTER IS EQUAL 
TO INPUT CHAR 
"I.INDI" AND "CHAR" 


NO 


YES 


TEST IF KEY CHAR 
IS A SPACE — 
GOOD KEY WORD 


Q 

< 

< 


© ® 


Q 

YES ^ 

o 


o 


' o 

r J 


® © 


Z ,_ w (DUAD 

YES _test if key CHAR (ADDED LATERE 

IS 7000 I.E. DUAL WD 































































NEXT 



1. USE "DET" AND VARIABLE DATA C (HAND LOAD 2"^ PART) 

OR 

2. USE "SPELL" WHICH INCLUDES "DET" (TAPE PROVIDED) 
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"DET" INSTRUCTIONS 



*0200 



0200 7240 

BEGN, 

STA 


020] 036] 


AND 

RJUM 

0202 3360 


DCA 

JUMP 

0203 6032 

STAR, 

KCC 


0204 603] 

WAIT, 

KSF 


0205 5204 


JMP 

WAIT 

0206 6034 


KRS 


0207 3362 


DCA 

CHAR 

02]0 7240 


STA 


02]] 0362 


AND 

CHAR 

02]2 3764 


DCA I 

KOUA 

02]3 2364 


ISZ 

KOUA 

j2f214 6042 


TCF 


02]5 7240 


STA 


02] 6 0362 


AND 

CHAR 

02U 60U 


TPC 


0220 604] 

WOAH, 

TSF 


022 ] 5220 


JMP 

WOAH 

0222 7240 


STA 


0223 0362 


AND 

CHAR 

0224 ]370 


TAD 

MASA 

0225 7040 


CMA 


0226 7U0 


SZA 


0227 5203 


JMP 

STAR 

0230 7240 


STA 


023] 0365 


AND 

RSKA 

0232 3364 


DCA 

KOUA 

0233 7240 

NEXT, 

STA 


0234 0367 


AND 

RSKB 

0235 3366 


DCA 

KOUB 

0236 7240 


STA 


0237 0764 


AND I 

KOUA 

0240 3362 


DCA 

CHAR 

0S14] 2364 


ISZ 

KOUA 

0242 7240 


STA 


0243 0362 


AND 

CHAR 

0244 ]370 


TAD 

MASA 

0245 7040 


CMA 


0246 7440 


SZA 


0247 5251 


JMP 

KEYS 

0250 5354 


JMP 

OUTS 

025] 2366 

KEYS, 

ISZ 

KOUB 

0252 7240 


STA 


0253 0766 


AND I 

KOUB 

0254 3363 


DCA 

INDI 

0255 7240 


STA 


0256 0363 


AND 

INDI 

0257 7U0 


SZA 



/RESET FOR DON'T UNDERSTAND 

/CLEAR FLAG AND ACC 
/SKIP IF FLAG 
/JUMP WAIT 
/READ KEY TO ACC 


/DEP EACH CHAR IN SENTENCE AREA "A" 
/INCREMENT AREA "A" COUNTER 
/CLR FLAG AND ACC 


/ECHO PRINT THE INPUT 
/SKIP IF FLAG 
/JUMP WAIT 

/INPUT CHARACTER 
/ADD MASK (7562) CAR RET 

/ZERO=CAR RET=SENTENCE END 
/RETURN FOR NEXT CHARACTER 


/RESTORE AREA "A" COUNTER 


/RESTORE KEY CHARACTER COUNTER 
/BRING OUT INPUT CHAR FOR COMPARE 
/INCREMENT AREA "A" COUNTER 


/ADD MASK (7562) CAR RET 

/ZERO=CAR RET=SEARCH END 

/END OF SEARCH-NEXT ROUTINE 
/INCREMENT AREA "B" COUNTER (START ■ 

/BRING OUT KEY CHARACTER FOR COMPARE 


/HOLDS ADRSS OF KEY CHARACTER 
/ZERO=NOT A KEY WORD 




jei26jei 

5262 


JMP 

ZERO 

026] 

5251 


JMP 

KEYS 

0262 

7240 

ZERO, 

STA 


0263 

0763 


AND I 

INDI 

0264 

7440 


SZA 


0265 

5275 


JMP 

DUAL 

0266 

7240 


STA 


0267 

0362 


AND 

CHAR 

0270 

1371 


TAD 

MASB 

027] 

7040 


CMA 


0272 

7U0 


SZA 


0273 

5233 


JMP 

NEXT 

0274 

5334 


JMP 

REST 

0275 

7240 

DUAL, 

STA 


0276 

0763 


AND I 

INDI 

0277 

1372 


TAD 

MASC 

0300 

7040 


CMA 


030] 

7440 


SZA 


0302 

5305 


JMP 

CONT 

0303 

2362 


ISZ 

CHAR 

0304 

5323 


JMP 

OKAY 

0305 

7240 

CONT, 

STA 


0306 

0763 


AND I 

INDI 

0307 

7040 


CMA 


03]0 

1362 


TAD 

CHAR 

03]] 

7040 


CMA 


03U 

7U0 


SZA 


03]3 

5325 


JMP 

BAAD 

03U 

7240 


STA 


03]5 

0763 


AND I 

INDI 

03]6 

1371 


TAD 

MASB 

03U 

7040 


CMA 


0320 

7440 


SZA 


032] 

5323 


JMP 

OKAY 

0322 

5330 


JMP 

GOOD 

0323 

2766 

OKAY, 

ISZ I 

KOUB 

0324 

5251 


JMP 

KEYS 

0325 

7200 

BAAD, 

CLA 


0326 

3766 


DCA I 

KOUB 

0327 

5251 


JMP 

KEYS 

0330 

2363 

GOOD, 

ISZ 

INDI 

033] 

724jef 


STA 


0332 

0763 


AND I 

INDI 

0333 

3360 


DCA 

JUMP 

0334 

7240 

REST, 

STA 


0335 

0773 


AND I 

KOUC 

0336 

3775 


DCA I 

KOUD 

0337 

2373 


ISZ 

KOUC 


/NEXT KEY CHARACTER 
/ZERO=END OF KEY WORDS 

/ADD MASK (7537) SPACE 
/ZERO=SPACE=END OF INPUT WORD 

/TEST IF DUAL WORD 

/ZERO INDICATES DUAL KEY WORD 
/INCREMENT TO SKIP SPACE 

/KEY CHARACTER FOR COMPARE 

/INPUT CHARACTER FOR COMPARE 

/ZERO=INDI AND CHAR COMPARE 
/NOT A KEY WORD 

/ADD MASK (7537^ SPACE 
/ZERO=SPACE=GOOD KEY WORD 

/INCREMENT PRESENT KEY COUNTER 
/NEXT KEY WORD 

/CLEAR COUNTER 
/NEXT KEY WORD 
/INCREMENT KEY COUNT 

/LOAD JUMP FOR OUTPUT TO SUBROUTINE 
/TO RESET THE KEY CHAR COUNTERS 

/RESET EACH COUNTER 
/INCREMENT COUNTER 



J0340 2375 


ISZ 

KOUD 

jS3A] 72416 


STA 


jef342 J6773 


AND I 

KOUC 

0343 7U0 


SZA 


03U 5334 


JMP 

REST 

0345 7240 


STA 


0346 0374 


AND 

RSKC 

0347 3373 


DCA 

KOUC 

0350 7240 


STA 


035 ] 0376 


AND 

RSKD 

0352 3375 


DCA 

KOUD 

0353 5233 


JMP 

NEXT 

0354 7240 

OUTS, 

STA 


0355 0365 


AND 

RSKA 

0356 3364 


DCA 

KOUA 

0357 5760 


JMP I 

JUMP 

0360 0000 

JUMP, 

0000 


036] 0000 

RJUM, 

0000 


0362 0000 

CHAR, 

0000 


0363 0000 

INDI, 

0000 


0364 0]00 

KOUA, 

0]00 


0365 0]00 

RSKA, 

0]00 


0366 0477 

KOUB, 

0477 


0367 0477 

RSKB, 

0477 


0370 7562 

MASA, 

7562 


037] 7537 

MASB, 

7537 


0372 0777 

MASC, 

0777 


0373 0000 

KOUC, 

0000 


0374 0000 

RSKC, 

0000 


16375 0000 

KOUD, 

0000 


16376 0000 

RSKD, 

0000 



/INCREMENT COUNTER 

/TO CHECK IF ALL WORDS TRANSFERRED 
/ZERO=END OF TRANSFER 


/RESET KOUC 


/RESET KOUD 

/NEXT INPUT CHARACTER 


/RESET AREA "A" COUNTER 

/TO NEXT SUBROUTINE 

/ADDRESS OF NEXT SUBROUTINE 

/RESET FOR DON'T UNDERSTAND ETC. 

/HOLDS INPUT CHARACTER 

/HOLDS ADDRESS OF KEY CHARACTER 

/INPUT CHARACTER ADDRESS 

/RESET KOUA 

/KEY CHARACTER ADDRESS 

/RESET KOUB 

/MASK FOR CAR RET 

/MASK FOR SPACE 

/MASK FOR IGNORE SPACE 

/FOR CHAR COUNT RESTORE 

/RESET KOUC 

/FOR CHARACTER COUNT RESET 
/RESET KOUD 


9 



BAAD J0325 

BEGN 1520 

CHAR j5362 

CONT 00 

DUAL 075 

GOOD 03f5 

INDI 063 

JUMP 06f5 

KEYS 05] 

KOUA 0364 

KOUB 0366 

KOUC 0373 

KOUD 0375 

MASA 0370 

MASB 037] 

MASC 0372 

NEXT 0233 

OKAY 0323 

OUTS 0354 

REST 0334 

RJUM 036] 

RSKA 0365 

RSKB 0367 

RSKC j2J374 

RSKD jZl376 

STAR 0203 

WAIT jZl2jZl4 

WOAH 0220 

ZERO jZl262 



"DET". VARIABLE DATA "C" 

(USE THIS ROUTINE OR "SPELL" ROUTINE) 


INPUT SENTENCE 


KOUA 


CHAR 


0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 


0317 

0310 

0240 

0311 

0324 

0240 

0322 

0301 

0316 

0240 

0215 


KEY WORDS 


i0500 


0400 

0315 

0401 

0331 

0402 

0240 

0403 

0650 - 

0404 

0311 

0405 

0324 

0406 

7000 

0407 

0322 

0410 

0301 

0411 

0316 

0412 

0240 

0413 

0650— 

S7T? 

0000 


O 

H 


I 

T 


R 

A 

N 


M 

Y 


-► OUT 


COUNTERS 


KOUA 

KOUB 

KOUC 

KOUD 

INDI 

0100 - 0112 
0477 - 0502 
0600 - 0603 
0500 - 0502 
04XX 

KOUB 

INDI 

0500 

0400 - 0403 

0501 

0404 - 0413 

0502 

0414 - * 

^KOUC 

0600 

0400 

0601 

0404 1 

0602 

0414 / 

0603 

0000 


RESTORE 


TEMP STORE 


I 

T 


DUAL 


R 

A 

N 


-► OUT 


*EACH WORD HAS A COUNTER 


KOUA 

KOUB 

KOUC 

0500 


INPUT CHAR ADRSS 
KEY WORD ADRSS 
CHAR COUNT RESTORE 
KEY CHAR COUNT 


11 


CHAR 

INDI 


(0301) 

(0405) 


EXAMPLE 

EXAMPLE 


LOCATIONS 


0000 

0177 



SENTENCE 

PROGRAM 

KEY WORDS 


0600^ 

0777J 


RESTORE 

































0664 

0670 

0674 

0700 

0704 

07]0 

07U 

0720 

0724 

0730 

0734 

0740 

07U 

0750 

0754 

0760 

0764 

0770 

0774 

Ij^ 

]004 

} 0]0 

]0U 

]020 

]024 

]030 

]034 

}040 

]0U 

\050 

i0r 

]060 

}064 

]070 

}074 

}]00 

\]04 

111J0 

1114 

]]20 

1124 

iisjei 

1134 

114J0 

1144 

115^ 

1154 


mm (M iX)3]U 2577 
0240 0U2 0577 0240 
0\77 0240 0705 1611 
2523 0240 jZf21 5 02\2 

mm 0iL) 24wmT4 

0240 1123 0240 2022 
0524 2431 0240 07U 
U04 0240 2320 05U 
1411 ]607 0240 02]5 

0212 .mm mij mT 


2577 0240 07U U06 
0504 0240 2422 3177 
0240 0]07 0]]] 1677 
0240 0215 0212 0000 

1123 0240 0317 2222 
0503 2477 02^_0215 
MlU000f0(>24 06U 
0664 0704 0731 0753 

~wn07riT0m2r 


1134 1146 1163 1176 
1210 1223 1233 1244 
1261 1273 13^5 1314 
1322 13M_J33Z_U345 

C^Ji^sFl^Tlll^ 

1122 1134 1146 1163 
1176 1210 1223 1233 
1244 1261 1273 1305 
1314 1322 133jZf 1337 


1345 ^000[0315 0^01 
0323 0m 0301 0303 
0310 0325 0323 0305 
0324 0324 0323 0240 
(H6DJ0324 0305 0316 
^0316 ^3^5 0323 0323 
0305 0305 0240 
0320 0305 0316 0316 
0323 0331 0314 0326 
0301 J0316 0311 0301 
0240^EX)0315 0311 
0303 0310 0311 0307 
0301 0316 0240 
0315 0311 0323 0323 
0317 0325 0322 0311 
0240 ^nD0315 0311 
0323 0323 0311 0323 
0323 0311 0320 0320 


YOU GOOFED TRY AGAIN 


"DET" LINK 


MASS 


DET" FONT 


TENN 

PENN 

MICH 

MO 

MISS 





























mmm 


ii6jei 

1164 

117J0 

1174 

\20 

\2jk 

121JZf 

1214 

122je( 

1224 

123J0 

1234 

124j^ 

1244 

125J2J 

1254 

126jef 

1264 

\270 

1274 

13jelje( 

13j2J4 

131j0 

1314 

132J0 

1324 

]33j5 

1334 

}340 

1344 


J0311 f524p W£:)0314 
J0317 16325 03]} 0323 
03] ] 030] J0316 030] 
0240(0EID03]7 J0313 
J0314 030] 03]0 03U 
03]5 030] 0240 (0STn 
03]5 03]] 03]6 03]6 
0305 0323 03U 0324 
030] 0240(mZ:>03]0 
030] 0327 030] 03]] 
03]] 0240(^^0327 
033] 03U 03]5 03]] 
03]6 0307 0240(0m) 
0303' 03U 03]6 03]6 
0305 0303 0324 03]] 
0303 0325 0324 0240 
(^^0304 0305 03]4 
030] 0327 030] 0322 
0305 0240(JS^03]5 
030] 0322 033 ] 03U 
030] 03]6 0304 0240 
(mZ)03]5 030] 03]] 
03]6 0305 0240 (^JD 
03]7 0^03]] 03]7 
0240 (J2SW0325 0324 
030] 03]0 0240 
03]] 0304 030] 03]0 
03U 0240 (0SID0304 
0325 03]5 0302 0240 


(mm 


LA 

OK LA 

MINN 

HAWAII 

WYO 

CONN 

DEL 

MD 

MAINE 

OHIO 

UTAH 

IDA 

DUMB 
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